home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0300.PRG < prev    next >
Text File  |  1988-06-18  |  2KB  |  89 lines
  1. NOTE ML0300 - PRINT MAILING LIST FILE        9/21/84
  2. STORE 0    TO DESCR
  3. DO WHILE DESCR>4.OR.DESCR<1
  4. ERASE
  5. ?
  6. ?
  7. ? '    PRINT MAILING LIST FILE'
  8. ?
  9. ? '       1  TO PRINT LIST IN REC ID SEQUENCE'
  10. ? '       2  TO PRINT LIST IN ZIP and NAME SEQUENCE'
  11. ? '       3  TO PRINT LIST IN ALPHABETIC SEQUENCE'
  12. ? '       4  TO PRINT LIST "COMPANY" RECORDS ONLY ALPHABETIZED ON CONTACT NAME'
  13. ?
  14. ? '      99  TO RETURN TO MAIN MENU'
  15. ?
  16. INPUT 'ENTER SELECTION 'TO DESCR
  17. IF DESCR=99
  18.     RELEASE DESCR,CVAL
  19.     RETURN
  20.     ENDIF
  21. ENDDO
  22. ?
  23. ?
  24. ? 'ENTER VALUE IN CODES FIELD TO SELECT NAMES FOR LETTER'
  25. ACCEPT '    <cr> = select all names for printing ' TO CVAL
  26. IF CVAL=' ' .AND. LEN(CVAL)=1
  27.     STORE ','    TO CVAL
  28. ELSE
  29.     STORE ','+CVAL+','    TO CVAL
  30.     ENDIF
  31. ?
  32. STORE 'Y' TO RESP
  33. @ 21,0 SAY 'CONTINUE WITH REPORT? (Y/N) ' GET RESP PICTURE '!'
  34. READ
  35. IF RESP#'Y'
  36.     RELEASE RESP,DESCR,CVAL
  37.     USE
  38.     RETURN
  39.     ENDIF
  40. USE &FDEV
  41. GOTO 1
  42. IF * .AND. RECID=0
  43.     STORE INST TO HEAD
  44.     SET HEADING TO &HEAD
  45.     ENDIF
  46. ERASE
  47. SET TALK ON
  48. DO CASE
  49. CASE DESCR=2
  50.     ? '    INDEXING FILE FOR REPORT. PLEASE WAIT.'
  51.     INDEX ON ZIP+!(INST)    TO MLI
  52. CASE DESCR=3
  53.     ? '    INDEXING FILE FOR REPORT. PLEASE WAIT.'
  54.     INDEX ON !(INST)    TO MLI
  55. CASE DESCR=4
  56.     ? 'BUILD REPORT FILE'
  57.     COPY TO ML0300 FOR CP.AND. @(CVAL,CODES)>0
  58.     ?
  59.     ? 'INDEXING FILE FOR REPORT. PLEASE WAIT.'
  60.     USE ML0300
  61.     INDEX ON !(CONTACT)    TO MLI
  62. ENDCASE
  63. SET TALK OFF
  64. ?
  65. ? 'PRINTING MAILING LIST FILE'
  66. ?
  67. ? 'NOTE: PRINT IS SET IN CONDENSED MODE. IF JOB IS INTERRUPTED,'
  68. ? '    RESET PRINT TO STANDARD MODE BY TURNING POWER OFF AND ON'
  69. SET CONSOLE OFF
  70. SET PRINT ON
  71. ? CONDENSE
  72. note    mrs-g? CHR(27)+'5'+CHR(15)
  73. REPORT FORM ML0300 FOR .NOT. * .AND. @(CVAL,CODES)>0 TO PRINT
  74. ? STANDARD
  75. note    mrs-g? CHR(27)+'5'+CHR(18)
  76. ?
  77. SET PRINT OFF
  78. SET CONSOLE ON
  79. USE
  80. SET HEADING TO
  81. RELEASE DESCR,CVAL,HEAD,RESP
  82. IF FILE('MLI.NDX')
  83.     DELETE FILE MLI.NDX
  84.     ENDIF
  85. IF FILE('ML0300.DBF')
  86.     DELETE FILE ML0300
  87.     ENDIF
  88. RETURN
  89.